﻿Public Class page : Inherits element


    Public windowsize As Size

    Public Overrides Sub Draw(ByVal g As System.Drawing.Graphics, ByVal P As System.Drawing.Point)
        For Each Item In Contents
            Item.Draw(g, P)
            P.Offset(0, Item.Height)
        Next
    End Sub

    Sub resize()
        ResizeWidth(Width)
        ResizeHeight(Height)
    End Sub

    Public Overrides ReadOnly Property Height As Integer
        Get
            Return windowsize.Height
        End Get
    End Property

    Public Overrides ReadOnly Property Width As Integer
        Get
            Return windowsize.Width
        End Get
    End Property
End Class